﻿Namespace Cartes.CarteBatimentsCivils.AgeI

    Public Class Bains
        Inherits CarteBatimentsCivils

        Public Overrides ReadOnly Property NomBatiment As String
            Get
                Return "Bains"
            End Get
        End Property

        Public Overrides ReadOnly Property Age As Integer
            Get
                Return 1
            End Get
        End Property

        Public Overrides ReadOnly Property FrequenceCarteNombreJoueur As List(Of Integer)
            Get
                Return New List(Of Integer) From {3, 7}
            End Get
        End Property

        Public Overrides ReadOnly Property CoutRessource As List(Of Carte.TypeRessouce)
            Get
                Return New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.Pierre}
            End Get
        End Property

        Public Overrides ReadOnly Property Gratuite As List(Of Carte)
            Get
                Return New List(Of Carte)
            End Get
        End Property

#Region "Constructeur"
        Public Sub New()


            Dim lstEffet As New List(Of Carte.TypeRessouce)
            For i As Integer = 0 To 2
                lstEffet.Add(Carte.TypeRessouce.Victoire)
            Next
            Me.Effet.Add(lstEffet)

        End Sub
#End Region

    End Class
End Namespace
